home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
midi
/
omed_pt.lha
/
rexx
/
define_f6.omed
< prev
next >
Wrap
Text File
|
1995-11-25
|
443b
|
22 lines
/* Define F6 - Case 28-10-95 */
address OCTAMED_REXX
options results
call open("f_keys","T:f_keys.omedtemp",R)
f6 = readln("f_keys")
f7 = readln("f_keys")
f8 = readln("f_keys")
f9 = readln("f_keys")
f10 = readln("f_keys")
call close("f_keys")
call open("f_keys","T:f_keys.omedtemp",W)
'ed_getcurrline var f6'
writeln("f_keys",f6)
writeln("f_keys",f7)
writeln("f_keys",f8)
writeln("f_keys",f9)
writeln("f_keys",f10)
call close("f_keys")
exit